home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
pcpil
/
restart.pim
< prev
next >
Wrap
Text File
|
1979-12-31
|
2KB
|
84 lines
R: * * * * * * * * * * RESTART MACRO * * * * * * * * * *
R: Student restart handler
R: Information kept in a file "nnn.REC"
R: One record per student.
R: Record layout: REC$(1,10) = student id number
R: REC$(11,30) = student name
R: REC$(41,10) = restart label
R: REC$(51,udatz) = user data area
R: REC$(51+udatz,2) = RETURN and LINE-FEED characters
R: Open restart file
D:RESF$(16)
?REM Input name to use for student file, or push ENTER to use RESTART.
C:RESF$=RSP(CAP("?F"))
C(LEN(RESF$)=0):RESF$="RESTART"
X:"FX:"!!RESF$
R: Next variable UDATZ is size of user data section of restart record
?REM Input length of user-data section of restart record (0 to 500).
C:UDATZ="?U"
C(Udatz<1):udatz=1
C(Udatz>500):udatz=500
R: Next variable, RECZ, is the length of each record.
C: RECZ = 52+UDATZ
D: ID$(10), REC$(RECZ), UDAT$(UDATZ), RESL$(6), NAME$(30)
T:Type your ID number and push ENTER.
T:(Or to stop now, just push ENTER.)
A:$ID$
C:ID$=RSP(CAP(ID$))
TS(LEN(ID$)=0):F7;B0;M2
TC:Program stopped.
EC:
R: See if student already on file.
C: RECNO = 0
*RESA
FI:RECNO*RECZ,REC$
J(ASC(REC$) = 255):RESB
J(ID$ = REC$(1,10)):RESC
C:RECNO = RECNO+1
J:RESA
*RESB
T:Your ID number is not on file.
T:Type your name and push ENTER.
T:(Or to stop now, just push ENTER.)
A:$NAME$
TS(LEN(NAME$)=0):F7;B0;M2
TC:Program stopped.
EC:
C:REC$(1,10)=ID$
C:REC$(11,30)=NAME$
C:UDAT$=SPC(UDATZ)
C:RESL$="RESGO"
U:CKPNT
*RESC
C:ID$=REC$(1,10)
C:NAME$=REC$(11,30)
C:RESL$=REC$(41,10)
C:UDAT$=REC$(51,UDATZ)
T:
T:Welcome #(TSP(NAME$)).
W:40
X:"J:" !! RESL$
R: this subroutine called by each CHECKPT macro.
*CKPNT
C:REC$(41,10)=RESL$
C:REC$(51,UDATZ)=UDAT$
C:REC$(RECZ-1,2)=CHR(13)!!CHR(10)
X:"FX:"!!RESF$
FO:RECNO*RECZ,REC$
E:
*RESGO
R: * * * * * * * * * * END OF RESTART MACRO * * * * * * * * * *